home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
dspice0s
/
locf.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-11-21
|
2KB
|
76 lines
/* locf.f -- translated by f2c (version of 3 February 1990 3:36:42).
You must link the resulting object file with the libraries:
-lF77 -lI77 -lm -lc (in that order)
*/
#include "f2c.h"
/* Common Block Declarations */
struct {
doublereal omega, time, delta, delold[7], ag[7], vt, xni, egfet, xmu,
sfactr;
integer mode, modedc, icalc, initf, method, iord, maxord, noncon, iterno,
itemno, nosolv, modac, ipiv, ivmflg, ipostp, iscrch, iofile;
} status_;
#define status_1 status_
/* Table of constant values */
static integer c__1 = 1;
/*< integer function locf(ivar) >*/
integer locf_(ivar)
integer *ivar;
{
/* Format strings */
static char fmt_100[] = "(\0020*error*: system error, address \002,i10\
,\002 is not on 4-byte boundary\002)";
/* System generated locals */
integer ret_val;
/* Builtin functions */
integer s_wsfe(), do_fio(), e_wsfe();
/* Local variables */
static integer iabsa;
extern integer loc_();
/* Fortran I/O blocks */
static cilist io__2 = { 0, 0, 0, fmt_100, 0 };
/* Parameter adjustments */
--ivar;
/* Function Body */
/*< implicit double precision (a-h,o-z) >*/
/*< external loc >*/
/* spice version 2g.6 sccsid=status 3/15/83 */
/*< common /status/ omega,time,delta,delold(7),ag(7),vt,xni,egfet, >*/
/*< 1 xmu,sfactr,mode,modedc,icalc,initf,method,iord,maxord,noncon, >*/
/*< 2 iterno,itemno,nosolv,modac,ipiv,ivmflg,ipostp,iscrch,iofile >*/
/*< dimension ivar(1) >*/
/*< iabsa=loc(ivar) >*/
iabsa = loc_(&ivar[1]);
/*< locf=iabsa/4 >*/
ret_val = iabsa / 4;
/*< if (iabsa.eq.4*locf) return >*/
if (iabsa == ret_val << 2) {
return ret_val;
}
/*< write(iofile,100) iabsa >*/
io__2.ciunit = status_1.iofile;
s_wsfe(&io__2);
do_fio(&c__1, (char *)&iabsa, (ftnlen)sizeof(integer));
e_wsfe();
/*< 100 format ('0*error*: system error, address ',i10, >*/
/*< 1 ' is not on 4-byte boundary') >*/
/*< return >*/
return ret_val;
/*< end >*/
} /* locf_ */